home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 1.iso
/
ARGONET
/
PD
/
PROGRAMMING
/
DESKLIBC
/
SOURCES.ZIP
/
DeskLib
/
!DLSources
/
Libraries
/
Misc
/
c
/
Validation
< prev
Wrap
Text File
|
1995-07-09
|
2KB
|
56 lines
/*
#### # # # #
# # # # # The FreeWare C library for
# # ## ### # # # # ### RISC OS machines
# # # # # # # # # # # ___________________________________
# # #### ### ## # # # #
# # # # # # # # # # Please refer to the accompanying
#### ### #### # # ##### # ### documentation for conditions of use
________________________________________________________________________
File: Misc.Validation.c
Author: Copyright © 1992 Jason Williams
Version: 1.01 (12 Dec 1992)
Purpose: Scanning of validation strings for various fields
*/
#include "DeskLib:Core.h"
#include "DeskLib:Validation.h"
extern int Validation_ScanString(char *string, char tag)
{
register int index;
register char trytag;
if ((int) string <= 0 || string[0] < 32) /* Invalid pointer/NULL string */
return(0);
if (tag >= 'a' && tag <= 'z')
tag &= 0xdf; /* Force to uppercase to compare */
index = -1;
while (TRUE)
{
if (string[++index] < 32) /* End of string-still not found */
return(0);
if (string[index] >= 'a' && string[index] <= 'z')
trytag = string[index] & 0xdf;
else
trytag = string[index]; /* Force to uppercase to compare */
if (trytag == tag)
{
if (string[index + 1] < 32)
return(0); /* No chars following tag! */
else
return(index + 1); /* Found, so return index */
}
while (string[index] != ';') /* Scan for ';' - item seperator */
if (string[++index] < 32) /* not found */
return(0);
}
}